home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Generous Efforts of Many
/
gemcd.zip
/
GEM.CD.A.po
/
FEATURES:BEAGLE
/
FLEX.TYPE.SHK
/
FLEX.TYPE
/
ERASING AND INVERTING.bas
< prev
next >
Wrap
BASIC Source File
|
2000-01-01
|
950b
|
14 lines
5 &
10 REM MISCELLANEOUS DEMO PROGRAM
15 REM SET UP CTRL E, F, N & T
20 E$ = CHR$(5):F$ = CHR$(6):N$ = CHR$(14):T$ = CHR$(20)
25 PRINT T$1: HOME : PRINT "This program illustrates the rest of the control characters that": PRINT "Flex Type recognizes.": PRINT
30 PRINT "As will be apparent, all three of these commands are similar to other": PRINT "BASIC commands or Escape sequences.": PRINT : PRINT
35 PRINT "CONTROL E - SAME AS ESC E AND CALL -868": PRINT
40 PRINT "CONTROL F - SAME AS ESC F AND CALL -958": PRINT
45 PRINT "CONTROL N - TOGGLE SCREEN (INVERSE/NORMAL)": PRINT
50 VTAB 21: PRINT "Press any key when you are ready to see some examples.";: GET X$: PRINT
55 VTAB 21: PRINT E$: PRINT "That was an example of ctrl-E.": GOSUB 1000
60 VTAB 6: PRINT F$: PRINT "That was an example of ctrl-F.": GOSUB 1000
65 VTAB 7: PRINT F$N$;: GOSUB 1000: PRINT N$"That was ctrl-N.": END
1000 FOR I = 1 TO 1500: NEXT I: RETURN